From: Stefan Monnier Date: Mon, 8 Mar 2021 00:05:02 +0000 (-0500) Subject: * lisp/cedet/semantic/fw.el (semantic-find-file-noselect): Fix warning X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~3626 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=42751f440dc46628ac09a522026f4ce41cada8d3;p=emacs.git * lisp/cedet/semantic/fw.el (semantic-find-file-noselect): Fix warning Remove ugly hack trying to warn the user about some unknown problem, and which stopped working in 2013 when files.el started using lexical-binding. --- diff --git a/lisp/cedet/semantic/fw.el b/lisp/cedet/semantic/fw.el index 3c36c6cb9f8..bdead99d68b 100644 --- a/lisp/cedet/semantic/fw.el +++ b/lisp/cedet/semantic/fw.el @@ -322,17 +322,7 @@ calling this one." "Call `find-file-noselect' with various features turned off. Use this when referencing a file that will be soon deleted. FILE, NOWARN, RAWFILE, and WILDCARDS are passed into `find-file-noselect'." - ;; Hack - - ;; Check if we are in set-auto-mode, and if so, warn about this. - (when (boundp 'keep-mode-if-same) - (let ((filename (or (and (boundp 'filename) filename) - "(unknown)"))) - (message "WARNING: semantic-find-file-noselect called for \ -%s while in set-auto-mode for %s. You should call the responsible function \ -into `mode-local-init-hook'." file filename) - (sit-for 1))) - - (let* ((recentf-exclude '( (lambda (f) t) )) + (let* ((recentf-exclude #'always) ;; This is a brave statement. Don't waste time loading in ;; lots of modes. Especially decoration mode can waste a lot ;; of time for a buffer we intend to kill.